Collection of Tools & Utilities/Collection of Tools and Utilities.iso/ada/gwuada_5.zip/adaed/spider/draw8.ada

Text File | 1993-02-04 | 200b | 16 lines

WITH Spider; USE Spider;
PROCEDURE Drawing8 IS
BEGIN
Start;
Red;
WHILE NOT AtWall LOOP
     Step;
     Turn;
     Step;
     Turn;
     Turn;
     Turn;
END LOOP;
Quit;
END Drawing8;